﻿Module Util
    Public Function convertStringToDouble(ByVal value As String) As Double
        Dim doubleValue = 0
        If value <> "" Then
            doubleValue = CType(value, Double)
        End If
        Return doubleValue
    End Function

    Public Sub configurarRangoFechas(ByRef fechaInferior As DateTimePicker, ByRef fechaSuperior As DateTimePicker)
        fechaInferior.MaxDate = fechaSuperior.Value
        fechaSuperior.MinDate = fechaInferior.Value
    End Sub

    Public Sub cleanComboBox(ByRef cbo As ComboBox)
        cbo.DataSource = Nothing
        cbo.Items.Clear()
    End Sub
End Module
